home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf_draw.ps < prev    next >
Text File  |  1997-08-14  |  10KB  |  401 lines
  1. %    Copyright (C) 1994, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_draw.ps
  19. % PDF drawing operations (graphics, text, and images).
  20.  
  21. % We don't handle the following PDF elements yet (identified by
  22. % page number in the reference manual):
  23. %    style strings (63-64), except in a few known fonts
  24. %    font descriptor resources (71-75), except for MissingWidth
  25. %    text clipping modes (104)
  26. %        What do these mean??
  27.  
  28. % We handle the following PDF 1.2 constructs:
  29. %    gs operator (but not functions)
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  34. GS_PDF_ProcSet begin
  35. pdfdict begin
  36.  
  37. % For simplicity, we use a single interpretation dictionary for all
  38. % PDF graphics operations, even though this is too liberal.
  39. /drawopdict 100 dict def
  40.  
  41. % ================================ Graphics ================================ %
  42.  
  43. % ---------------- Graphics state management ---------------- %
  44.  
  45. drawopdict begin
  46.             % Graphics state stack
  47.   /q { q } def
  48.   /Q { Q } def
  49.             % Graphics state setting
  50.   /cm { cm } def
  51.   /i { i } def
  52.   /J { J } def
  53.   /d { d } def
  54.   /j { j } def
  55.   /w { w } def
  56.   /M { M } def
  57.   /gs { gs } def
  58. end
  59.  
  60. /gsparamdict mark
  61.   /Type { pop }
  62.   /SA { /setstrokeadjust 1 # }
  63.   /OP { /setoverprint 1 # }
  64.   /BG
  65.    { dup /Identity eq
  66.       { pop { } /setblackgeneration 1 #
  67.       }
  68.       {        %****** DUMMY ******
  69.     pop
  70.       }
  71.      ifelse
  72.    }
  73.   /UCR
  74.    { dup /Identity eq
  75.       { pop { } /setundercolorremoval 1 #
  76.       }
  77.       {        %****** DUMMY ******
  78.     pop
  79.       }
  80.      ifelse
  81.    }
  82.   /TR
  83.    { dup /Identity eq
  84.       { pop { } /settransfer 1 #
  85.       }
  86.       {        %****** DUMMY ******
  87.     pop
  88.       }
  89.      ifelse
  90.    }
  91.   /HT
  92.    { dup /Default eq
  93.       { pop /.setdefaultscreen 0 #
  94.       }
  95.       {        %****** DUMMY ******
  96.     pop
  97.       }
  98.      ifelse
  99.    }
  100.   /HTP { oget aload pop /sethalftonephase 2 # }
  101. .dicttomark readonly def
  102. /gs            % <gsres> gs -
  103.  { Page /ExtGState rget
  104.     {  { oforce exch gsparamdict exch .knownget { exec } { pop } ifelse }
  105.       forall
  106.     }
  107.    if
  108.  } bdef
  109.  
  110. % ---------------- Color setting ---------------- %
  111.  
  112. /csgray            % <op> <csop> csgray -
  113.  { /DefaultGray Page /ColorSpace rget
  114.     { 3 -1 roll exch 3 1 roll }
  115.    if pop cvx exec
  116.  } bdef
  117. /csrgb            % <op> <csop> csrgb -
  118.  { /DefaultRGB Page /ColorSpace rget
  119.     { 3 -1 roll exch 3 1 roll }
  120.    if pop cvx exec
  121.  } bdef
  122. /cscmyk            % <op> <csop> cscmyk -
  123.  { pop cvx exec
  124.  } bdef
  125. /csresolve        % <csresource> csresolve <colorspace>
  126.  { dup Page /ColorSpace rget
  127.     { exch pop resolvecolorspace }
  128.     { /undefined cvx signalerror }
  129.    ifelse dup type /nametype ne { dup length 1 eq { 0 get } if } if
  130.  } bdef
  131. /cset        % <c0> ... [- <sc1> <sc2> <sc3> <sc4> <sc5>] cset -
  132.  {        % We can't really make sc[n] and SC[N] work, because
  133.         % the color space information isn't available at
  134.         % conversion time; so we hack it by assuming that
  135.         % all the operands on the stack are used, and that
  136.         % if the top operand is a name, it's a Pattern resource.
  137.    1 index type /nametype eq
  138.     { exch Page /Pattern rget { resolvepattern } { null } ifelse exch }
  139.    if
  140.    count 1 sub get exec
  141.  } bdef
  142. /resolvepattern        % <patternstreamdict> resolvepattern <patterndict>
  143.  {        % Don't do the resolvestream now: just capture the data
  144.         % from the file if necessary.
  145.    dup length dict copy
  146.    dup /FilePosition .knownget
  147.     { 1 index /File get dup fileposition 3 1 roll
  148.         % Stack: dict savepos pos file
  149.       dup 3 -1 roll setfileposition
  150.       dup 3 index /Length get string readstring pop
  151.         % Stack: dict savepos file string
  152.       3 1 roll exch setfileposition
  153.       1 index /File 3 -1 roll put
  154.       dup /FilePosition undef
  155.     }
  156.    if
  157.    dup /PaintProc
  158.     { false resolvestream pdfopdict .pdfrun
  159.     }
  160.    put
  161.  } bdef
  162.  
  163. drawopdict begin
  164.   /g { /g { cs sc1 } csgray } bdef
  165.   /rg { /rg { cs sc3 } csrgb } bdef
  166.   /k { /k { cs sc4 } cscmyk } bdef
  167.   /cs { csresolve cs } bdef
  168.   /sc { { null sc1 sc2 sc3 sc4 sc5 } cset } bdef
  169.   /scn /sc load def
  170.   /G { /G { CS SC1 } csgray } bdef
  171.   /RG { /RG { CS SC3 } csrgb } bdef
  172.   /K { /K { CS SC4 } cscmyk } bdef
  173.   /CS { csresolve CS } bdef
  174.   /SC { { null SC1 SC2 SC3 SC4 SC5 } cset } bdef
  175.   /SCN /SC load def
  176. end
  177.  
  178. % ---------------- Paths ---------------- %
  179.  
  180. drawopdict begin
  181.             % Path construction
  182.   /m { m } def
  183.   /l { l } def
  184.   /c { c } def
  185.   /v { v } def
  186.   /y { y } def
  187.   /re { re } def
  188.   /h { h } def
  189.             % Path painting and clipping
  190.   /n { n } def
  191.   /S { S } def
  192.   /s { s } def
  193.   /f { f } def
  194.   /f* { f* } def
  195.   /B { B } def
  196.   /b { b } def
  197.   /B* { B* } def
  198.   /b* { b* } def
  199.   /W { W } def
  200.   /W* { W* } def
  201. end
  202.  
  203. % ---------------- XObjects ---------------- %
  204.  
  205. /xobjectprocs mark        % <dict> -proc- -
  206.   /Image { DoImage }
  207.   /Form { DoForm }
  208. .dicttomark readonly def
  209.  
  210. /ncompdict mark
  211.   /DeviceGray 1
  212.   /CalGray 1
  213.   /DeviceRGB 3
  214.   /CalRGB 3
  215.   /Lab 3
  216.   /DeviceCMYK 4
  217.   /CalCMYK 4
  218. .dicttomark readonly def
  219. /defaultdecodedict mark
  220.   /DeviceGray [0 1] readonly
  221.   /CalGray 1 index
  222.   /DeviceRGB [0 1 0 1 0 1] readonly
  223.   /CalRGB 1 index
  224.   /Lab
  225.    { 0 100 2 index 1 get /Range .knownget not { {-100 100 -100 100} } if
  226.      aload pop 6 array astore readonly
  227.    } bind
  228.   /DeviceCMYK [0 1 0 1 0 1 0 1] readonly
  229.   /CalCMYK 1 index
  230. .dicttomark readonly def
  231. /csrdict mark
  232.   /Indexed
  233.    { dup 3 oget dup type /stringtype eq
  234.       { pop
  235.       }
  236.       {        % The color lookup table is a stream.
  237.         % Get its contents.
  238.     true resolvestream
  239.     1 index 2 get 1 add
  240.     ncompdict 3 index 1 get
  241.       dup type /arraytype eq { 0 get } if get mul
  242.     string readstring pop
  243.     1 index 3 3 -1 roll put
  244.       }
  245.      ifelse
  246.    }
  247.   /Pattern
  248.    { dup type /nametype ne
  249.       { dup length 1 ge
  250.      { 1 get resolvecolorspace
  251.        /Pattern exch 2 array astore
  252.      }
  253.     if
  254.       }
  255.      if
  256.    }
  257. .dicttomark readonly def
  258. /resolvecolorspace    % <cspace> resolvecolorspace <cspace'>
  259.  { dup dup type /arraytype eq { 0 get } if
  260.    //csrdict exch .knownget { exec } if
  261.  } bdef
  262. /DoImage
  263.  { dup length dict
  264.    1 index /ColorSpace knownoget
  265.     { resolvecolorspace
  266.       dup type /arraytype eq { dup length 1 eq { 0 get } if } if
  267.       exch begin /ColorSpace exch def
  268.     }
  269.     { begin
  270.     }
  271.    ifelse
  272.    /ImageType 1 def
  273.         % Always define ImageMask appropriately.
  274.    dup /ImageMask knownoget dup { and } if
  275.      /ImageMask exch def
  276.    /Width 2 copy oget def
  277.    /Height 2 copy oget def
  278.    /BitsPerComponent 2 copy oget def
  279.    /Decode 2 copy knownoget not
  280.     {        % Decode is required for the PostScript image operators.
  281.       ImageMask
  282.        { [0 1]
  283.        }
  284.        { ColorSpace dup type /arraytype eq { 0 get } if dup /Indexed eq
  285.       { pop [ 0 1 BitsPerComponent bitshift 1 sub ] }
  286.       { defaultdecodedict exch get exec }
  287.      ifelse
  288.        }
  289.       ifelse
  290.     }
  291.    if def
  292.    /Interpolate 2 copy knownoget { def } { pop } ifelse
  293.    /ImageMatrix Width 0 0 Height neg 0 Height 6 array astore def
  294.         % Define DataSource as the width of the row buffer,
  295.         % which is what is needed if we're writing PostScript.
  296.    /DataSource 
  297.      Width BitsPerComponent mul
  298.      ImageMask not { Decode length 2 idiv mul } if
  299.      7 add 8 idiv
  300.    def
  301.         % Even though we're going to read data,
  302.         % pass false to resolvestream so that
  303.         % it doesn't try to use Length (which may not be present).
  304.    false resolvestream /Is_stream exch store
  305.    currentdict end ID
  306.  } bdef
  307. % Redefine Is, which constructs the data source for the image,
  308. % to retrieve the stream.  (pdf_2ps.ps redefines Is to copy the data too.)
  309. userdict /Is_stream null put
  310. /Is        % <imagedict> Is <imagedict> <datasource>
  311.  { Is_stream
  312.  } bdef
  313.  
  314. /DoForm
  315.  { dup [ /pop load 2 index
  316.     { false resolvestream pdfopdict .pdfrun }
  317.    aload pop ] cvx /PaintProc exch put
  318.    execform
  319.  } bdef
  320.  
  321. drawopdict begin
  322.   /Do
  323.     { PDFfile fileposition exch
  324.       dup Page /XObject rget not { /undefined cvx signalerror } if
  325.       exch pop dup /Subtype get xobjectprocs exch get exec
  326.       PDFfile exch setfileposition
  327.     } bdef
  328. end
  329.  
  330. % ---------------- In-line images ---------------- %
  331.  
  332. % Undo the abbreviations in an in-line image dictionary.
  333. % Note that these can appear as keys, values, or members of array values.
  334. % /I is ambiguous; we check specially for it below.
  335. /unabbrevdict mark
  336.     % Top-level dictionary keys
  337.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  338.   /F /Filter  /H /Height  /IM /ImageMask  /W /Width
  339.     % Values
  340.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  341.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  342.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /G /DeviceGray  /RGB /DeviceRGB
  343.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  344. .dicttomark readonly def
  345. /unabbrev        % <obj> unabbrev <obj'>
  346.  { dup type /nametype eq
  347.     { unabbrevdict 1 index .knownget { exch pop } if
  348.     }
  349.     { dup type /arraytype eq
  350.        { dup 0 1 2 index length 1 sub
  351.       { 2 copy get unabbrev put dup
  352.       }
  353.      for pop
  354.        }
  355.       if
  356.     }
  357.    ifelse
  358.  } bdef
  359.  
  360. drawopdict begin
  361.   /BI { mark } bdef
  362.   /ID
  363.     { counttomark
  364.        { counttomark 1 roll
  365.      dup /I eq { pop /Interpolate } { unabbrev } ifelse
  366.        }
  367.       repeat
  368.       /File PDFsource
  369.       .dicttomark DoImage
  370.       PDFsource token pop /EI ne { /ID cvx /syntaxerror signalerror } if
  371.     } bdef
  372. end
  373.  
  374. % ================================ Text ================================ %
  375.  
  376. drawopdict begin
  377.             % Text control
  378.   /BT { BT } def
  379.   /ET { ET } def
  380.   /Tc { Tc } def
  381.   /TL { TL } def
  382.   /Tr { Tr } def
  383.   /Ts { Ts } def
  384.   /Tw { Tw } def
  385.   /Tz { Tz } def
  386.             % Text positioning
  387.   /Td { Td } def
  388.   /TD { TD } def
  389.   /Tm { Tm } def
  390.   /T* { T* } def
  391.             % Text painting
  392.   /Tj { Tj } def
  393.   /' { ' } def
  394.   /" { " } def
  395.   /TJ { mark exch aload pop TJ } def
  396. end
  397.  
  398. end            % pdfdict
  399. end            % GS_PDF_ProcSet
  400. .setglobal
  401.